home *** CD-ROM | disk | FTP | other *** search
/ DS-CD ROM 2 1993 August / DS CD-ROM 2.Ausgabe (August 1993).iso / geschaef / ds0093 / topfakt / mahnung.for < prev    next >
Text File  |  1993-06-30  |  4KB  |  115 lines
  1. /FORMULAR Mahnungsdruck
  2.  
  3. ^12
  4. !AUSDRUCKE 2
  5. !LINKER RAND 8
  6. #Firmenkopf
  7.  
  8.  
  9.  
  10. ^17#Firmenabsender
  11. ^12
  12. #Anrede
  13. #Vorname#Name
  14. [[#Name2 ]]
  15. #Strasse
  16. #Land#Plz  #Ort
  17.  
  18.  
  19.                                                         Kunden-Nr. : #KDNR:8:0
  20.                                                         Datum      : #Datum
  21.  
  22.  
  23.  
  24. ^B#Mahntitel                            // "1. Mahnung" etc. in Breitdruck
  25. ^b^12
  26.  
  27. #Mahntext:75                            // Mahntext incl. Anrede drucken
  28.  
  29. !GEHE ZU ZEILE 42
  30.  
  31. !WENN #Mahnstufe < 4
  32. Rechnung Nr.    Datum  Rg.-Betrag Gutschrift     Gezahlt  Mst.    Zu zahlen
  33. /   1234567  12.12.12 12345678901 1234567890 12345678901  123   12345678901
  34. ───────────────────────────────────────────────────────────────────────────
  35. !ENDE WENN
  36. /
  37. !LISTE:55                                    // Liste aller OP's dieses Kunden
  38. /
  39. !#RgBetrag:= #RgSum- #Gutschrift- #Gezahlt   // Gutschriften&Bezahltes abziehen
  40. !#MahnSumme:= #MahnSumme + #RgBetrag         // Summe bilden,falls mehrere OP's
  41. /
  42. !WENN #Mahnstufe < 4
  43.     #Atr_Nr  #RgDatum #RgSum:11   #Gut:10    #Gezahlt:11  #Ms   #RgBetrag:11 #Währung
  44. !ENDE WENN
  45. /
  46. !ENDE LISTE
  47. /
  48. !#MahnSumme:= #MahnSumme + #Mahngebühr
  49. !WENN #Mahnstufe <= 3
  50. ───────────────────────────────────────────────────────────────────────────
  51.                                                   [[Mahngebühren: #Mahngebühr:11 #Währung ]]
  52.                                                ^F   Gesamtsumme:  #MahnSumme:11 #Währung ^f
  53.                                                   ═════════════════════════
  54. !WENN #Mahnstufe >= 4
  55.  
  56.  
  57. Gesamtsumme aller Forderungen: #MahnSumme:10:2 #Währung
  58. ─────────────────────────────────────────────
  59.  
  60. !ENDE WENN
  61. /
  62. !GEHE ZU ZEILE 58
  63. ^17#Bank1                                    #Bank2                                    #Bank3                                    ^12
  64. ^17#Blz1             #Kontonr1               #Blz2             #Kontonr2               #Blz3             #Kontonr3               ^12
  65. !SEITENAUSWURF
  66. !FORMULARENDE    // alles, was hiernach kommt, wird nicht mehr gedruckt...
  67.  
  68.  
  69.  
  70.  
  71.  
  72.  
  73.  
  74. !PLATZHALTER
  75.   #FIRMENABSENDER ,  fir->fenster
  76.   #KdNr,             opos->at_kdnr
  77.   #Anrede,           kun->anrede
  78.   #VORNAME ,         LTrim( Trim( kun->n1)+ ' ')
  79.   #NAME ,            kun->n2
  80.   #NAME2 ,           kun->ansprechp
  81.   #STRASSE ,         kun->strasse
  82.   #LAND ,            Trim( kun->land)+ IF( .NOT. Empty( kun->land), '-', '')
  83.   #PLZ ,             kun->plz
  84.   #ORT ,             kun->ort
  85.   #Briefanrede,      Trim( kun->Briefanred)+ IF( ! Empty( kun->Briefanred), ',', '')
  86.  
  87.   #Mahntitel,        MahTx->Mahntitel
  88.   #Mahntext,         cMahntext         // Standard- oder geänderter Mahntext
  89.   #Mahnstufe,        nMahnstufe        // 1.-5. Mahnung
  90.  
  91.   #RgBetrag,         nRgBetrag
  92.  
  93.   #Mahngebühr,       nMahngeb          // Mahngebühr, die aufgeschlagen wird
  94.   #MahnSumme,        nMahnSumme
  95.  
  96.   #ATR_NR ,          Str( opos->at_nr)
  97.   #RgDatum ,         opos->rg_dat      // Datum der Rechnung
  98.   #RgSum,            opos->at_wert
  99.   #Gezahlt,          opos->gezahlt
  100.   #Gutschrift,       opos->gutschrift
  101.   #Gut,              IF( opos->gutschrift= 0, Space(11), Str( opos->gutschrift))
  102.   #MS,               Str( CalcMahnStufe(),3)   // Mahnstufe der einzelnen Offenen Posten
  103.  
  104.  
  105.   #Bank1,            fir->bank1        // 1. Bankverbindung
  106.   #Blz1,             fir->blz_1
  107.   #Kontonr1,         fir->knr_1
  108.   #Bank2,            fir->bank2        // 2. Bankverbindung
  109.   #Blz2,             fir->blz_2
  110.   #Kontonr2,         fir->knr_2
  111.   #Bank3,            fir->bank3        // 3. Bankverbindung
  112.   #Blz3,             fir->blz_3
  113.   #Kontonr3,         fir->knr_3
  114.  
  115. !ENDE PLATZHALTER